home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zc.d64 / src.basic < prev    next >
Text File  |  2007-03-01  |  3KB  |  158 lines
  1. MASTERCODE/S
  2. *   10 ORG $8009
  3. *   20 PROC=112
  4. *   30 ENDPR=126
  5. *   40 VALUE=114
  6. *   50 STR=2
  7. *   60 BYT %01000110
  8. *   70 WRD EIND+17
  9. *   80 WRD $CA2F
  10. *   90 BYT 5.66.65.83.73.67
  11. *  100 WRD PROCS
  12. *  110 WRD $CA2F
  13. *  120 BYT 0
  14. *  130 PROCS
  15. *  140 BYT 2.71.79
  16. *  150 WRD HEAD
  17. *  160 BYT 0
  18. *  170 HEAD
  19. *  180 BYT PROC.LO.HI.1.VALUE+STR.ENDPR
  20. *  190 ADRES
  21. *  200 LO=ADRES-ADRES/256*256
  22. *  210 HI=ADRES/256
  23. *  220 LDA #$01
  24. *  230 JSR $C896
  25. *  240 LDY #$02
  26. *  250 LDA ($45).Y
  27. *  260 BNE ARGERR
  28. *  270 INY
  29. *  280 LDA ($45).Y
  30. *  290 BEQ ARGERR
  31. *  300 CMP #$11
  32. *  310 BCC OK
  33. *  320 ARGERR
  34. *  330 LDX #$01
  35. *  340 JMP $C9FB
  36. *  350 OK
  37. *  360 STA EIND
  38. *  370 LDX #$00
  39. *  380 INY
  40. *  390 NAME
  41. *  400 LDA ($45).Y
  42. *  410 STA EIND+1.X
  43. *  420 INX
  44. *  430 INY
  45. *  440 CPX EIND
  46. *  450 BCC NAME
  47. *  460 SEI 
  48. *  470 LDA #$37
  49. *  480 STA $01
  50. *  490 LDX #$E0
  51. *  500 LDY #$07
  52. *  510 LDA #$00
  53. *  520 PORT
  54. *  530 STA $DF00.Y
  55. *  540 DEY 
  56. *  550 BPL PORT
  57. *  560 STX $DE00
  58. *  570 STX $8008
  59. *  580 LDX #$FF
  60. *  590 TXS 
  61. *  600 CLD 
  62. *  610 JSR $FDA3
  63. *  620 JSR $FD50
  64. *  630 JSR $FD15
  65. *  640 JSR $FF5B
  66. *  650 CLI 
  67. *  660 JSR $E453
  68. *  670 JSR $E3BF
  69. *  680 JSR $E422
  70. *  690 LDX #$FB
  71. *  700 TXS 
  72. *  710 LDA #NMI-NMI/256*256
  73. *  720 LDY #NMI/256
  74. *  730 STA $0318
  75. *  740 STY $0319
  76. *  750 LDA #BACK-BACK/256*256
  77. *  760 LDY #BACK/256
  78. *  770 STA $0302
  79. *  780 STY $0303
  80. *  790 LDA #$80
  81. *  800 STA $9D
  82. *  810 LDA EIND
  83. *  820 LDX #NA-NA/256*256
  84. *  830 LDY #NA/256
  85. *  840 JSR $FFBD
  86. *  850 LDX #$08
  87. *  860 LDY #$FF
  88. *  870 JSR $FFBA
  89. *  880 LDA #$00
  90. *  890 LDX $2B
  91. *  900 LDY $2C
  92. *  910 JSR $FFD5
  93. *  920 BCC NOERR
  94. *  930 JMP $E0F9
  95. *  940 NOERR
  96. *  950 LDA $90
  97. *  960 AND #$BF
  98. *  970 BEQ NOLERR
  99. *  980 JMP $E19C
  100. *  990 NOLERR
  101. * 1000 STX $2D
  102. * 1010 STY $2E
  103. * 1020 LDA #$02
  104. * 1030 LDX #COM-COM/256*256
  105. * 1040 LDY #COM/256
  106. * 1050 JSR $FFBD
  107. * 1060 LDA #$01
  108. * 1070 LDX #$08
  109. * 1080 LDY #$6F
  110. * 1090 JSR $FFBA
  111. * 1100 JSR $FFC0
  112. * 1110 JSR $A533
  113. * 1120 LDA #$00
  114. * 1130 STA $9D
  115. * 1140 JSR $A659
  116. * 1150 LDA #$0D
  117. * 1160 JSR $FFD2
  118. * 1170 JMP $A7AE
  119. * 1180 NMI
  120. * 1190 LDX #$00
  121. * 1200 LDY #$00
  122. * 1210 WAIT
  123. * 1220 DEY 
  124. * 1230 BNE WAIT
  125. * 1240 DEX 
  126. * 1250 BNE WAIT
  127. * 1260 BACK
  128. * 1270 LDA #$37
  129. * 1280 STA $01
  130. * 1290 LDX #$80
  131. * 1300 LDY #$07
  132. * 1310 LDA #$00
  133. * 1320 LABE
  134. * 1330 STA $DF00.Y
  135. * 1340 DEY
  136. * 1350 BPL LABE
  137. * 1360 LDA #$8E
  138. * 1370 STA $033C
  139. * 1380 LDA #$00
  140. * 1390 STA $033D
  141. * 1400 LDA #$DE
  142. * 1410 STA $033E
  143. * 1420 LDA #$6C
  144. * 1430 STA $033F
  145. * 1440 LDA #$FC
  146. * 1450 STA $0340
  147. * 1460 LDA #$FF
  148. * 1470 STA $0341
  149. * 1480 JMP $033C
  150. * 1490 COM
  151. * 1500 BYT 85.73
  152. * 1510 EIND
  153. * 1520 NA=EIND+1
  154. * 1530 BYT 0.0.0.0.0.0.0.0
  155. * 1540 BYT 0.0.0.0.0.0.0.0
  156. END
  157.  
  158.